home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 07ex010.jar / code / ch07 / 07ex010 / 07ex010.pl next >
Perl Script  |  1998-04-01  |  182b  |  7 lines
  1. #!/usr/bin/perl  
  2. #  Script: pop_function 
  3. @names=("Bob", "Dan", "Tom", "Guy"); 
  4. print "@names\n";
  5. print pop(@names); # pop off last element of the array 
  6. print "\n@names\n"; 
  7.